unit UCadEtapaInfra;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UModeloFilha, DB, DBTables, StdCtrls, Buttons, Mask, DBCtrls;

type
  TFCadEtapaDetalheServico = class(TFModeloFilha)
    ds1: TDataSource;
    qFilhaETPDETSERDESCRICAO: TStringField;
    qFilhaETPDETID: TIntegerField;
    qFilhaEMPREENDID: TIntegerField;
    qFilhaETPID: TIntegerField;
    qFilhaETPDETSERID: TIntegerField;
    lbl3: TLabel;
    dbedt3: TDBEdit;
    lbl4: TLabel;
    dbedt4: TDBEdit;
    lbl5: TLabel;
    dbedt5: TDBEdit;
    lbl6: TLabel;
    dbedt6: TDBEdit;
    lbl7: TLabel;
    dbedt7: TDBEdit;
    EdDescEmpreendimento: TEdit;
    EdDescEtapa: TEdit;
    EdDescDetalhe: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FCadEtapaDetalheServico: TFCadEtapaDetalheServico;

implementation

{$R *.dfm}

end.
